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EDTSCHMHLPKPD - keypad help Slee 1984 AX-11 Bliss-32 V4.0-742 Page 1 
4-Sep 51984 13:33 £33 EDT. SREJCH HMHLPKPD.BLI;1 . (1) vO 

: 1 001 XTITLE ‘EDTSCHMHLPKPD = keypad help’ ; 
; ¢ Oe MODULE EDTSCHMHLPKPD ( ! Keypad he tp ; 
; ? Bob? {DENT = 'v04-000' "Fi e: CHMHLPKPD.BLI Edit: JBS1020 | ; 
$ 2 Bop: : BEGIN | : 
: 4 0007 : LER RRR ARERR AREER AAA ETAT TAAAAAARAAERERREEKEEREEEE ° 
E '® ® ° 
; 4g $009 1 !® (COPYRIGHT (c) 1978, 1980, 1982, 1984 * : 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * : 
3 1 bot 4 ’ 7 ALL RIGHTS RESERVED. * : 
3 i® ® e 
3 ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
; | «614 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | ° 
; 0015 1 !* INCLUSION OF THE ABOVE tpl ha NOTICE. THIS SOFTWARE OR ANY OTHER * . 
; 616 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: 18 Bots ! od TRANSFERRED. * ; 
g !® * : 
; = 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; i 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * F 
: $8 14 : :* CORPORATION. * : 
3 '® ® e 
: 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
; 0026 1 !* * ; 
: af 0027 1 !« * ; 
3 $f 3 LL eee RRR RRR RARER AAA EAA AEA AEA AERA AAA AAA AAARAAAERAKREAAEAAE REE | Ps 
: :% : 
: § 0030 1 | : 
ee ) | 0031 1 !++ : 
.. me 0032 1 ! FACILITY: EDT -=- The DEC Standard Editor 3 
. | 2 0033 1! 
: 34 0034 1 | ABSTRACT: | 
. = 0035 1! 
: $$ site) ; This module handles keypad mode help. | 
3 Hs sit : ENVIRONMENT: Runs at any access mode - AST reentrant | 
: re Bpe9 : : AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
: $¢ 0042 1 ! MODIFIED BY: | 
; (4 0043 1! 
3: (44 044 1! 1-001 - Original. DJS 04-Feb-1981. This module was created by 
; 645 045 1! extracti ng the routine EDTSSKPAD_HLP_ from the module CHANGE.BLI. 
: 646 0046 1 ! 1-002 - Regularize headers. JBS 02-Mar-1981 
: «647 0047 1! 1-08 - Use new message codes. $ Or~tyg, 1981 
:; 648 0048 1 ! 1-004 - Add return values. JBS 02-Oct-1981 
3; «649 0049 1 ! 1-005 - Revise the mapping of keys into helo text. SMB 1 fatigy-19 ~1981, 
; 3 boas 1! 1- - Add a message for no help on nondefinable key yt 
, FT 051 1 ! 1-007 - Bypass 445 CHM_HLP +o col ing sorssoui HLP esse nes 03-Jun-1982 
3 26 O36 1! 1- o8 - Send a t in-on exit from this module l-1 
:- 3 053 1! 1-009 - New iolessistiee of det ined keys, JBS *135anget9 é 
5 3 054 1 ! 1-010 = Don't add K_GOLD BASE to the key just look it up. JBS 16-Aug-1982 
; 055 1! 1-011 - alley ¥6t° 1c. 8=bit Keyboards, and fix bug in lower case conversion. JBS 17-Aug-1982 
; » BRe$ 1! 1- ig: 8 ~ 8-bit keyboards. JBS 20-Aug-19 
. SF 057 1! 1-015 - Sd, out al shift-in sequence dependant on terminal. STS 27-Aug-1982 
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-020 - Make sure we are in replace mode, so the help screen 
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Change the call to erase the screen. JBS 23-0¢t-1982 
Make sure the cursor is positioned 

On return, rebuild the screen data base. JBS 01-Nov-1982 
Add conditional for VT220 support. JBS 11-Feb-1983 


Take out unecessary calls to EDTSSOUT_FMTBUF. 
This way EDT does not lose track of the scrolling region. 


12 
1S-Sen-1984 25:59:59 vane 


roperly before ores ing the screen. 


j he ay v4.0 
SRC JCHMHLPKPD.B 


SMB 23-Feb-1983 
- Do the setting of the scrolling region for the keypad picture in code instead of in the help text. 


JBS 21-Apr-1983 


JBS 22-Mar-1983 


oes not paint slowly. 


JBS 01-Nov-1982 
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a - keypad help 


1 = - 
ons lhe « 


RSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSKPAD_HLP; 


| INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
LIBRARY ‘EDTSRC:KEYPADDEF'; 
LIBRARY ‘EDTSRC:SUPPORTS'; 


i] 
MACROS: 
NONE 


4 
' 
EQUATED SYMBOLS: 


IND SIFT IN 
ZTHAR 


100 
(AS 
XCHA Ss 
SHIFT_IN_52 = UPL 
ZCHAR ( : 


ZCHAR (A 


LITERAL 
SILLE 


LEN_ 3 
SI_LLEN_ 


§2 = 
360 = 4; 


OWN STORAGE: 
NONE 


EXTERNAL REFERENCES: 
In the routine 


1986 12:22:38 


AX-11 Ohi 


s-32 Ys. Oo 74¢ 
EDT.SRC H 


HMHLPKPD.BLI 


! Keypad mode help processor 


! Shift in 
! Video attributes off 


! shift in 


P 
age ; 
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v04- 


xx 
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PAD_HLP = heypad help 12-08-1988 $3 :33:39 EDT. SRCJCHMHLPKPD.BLI; _ (3) 


XSBTTL ‘EDTSSKPAD_HLP = keypad help’ 
GLOBAL ROUTINE EDTSSKPAD_HLP ! Keypad help 


en 


++ | 
FUNCTIONAL DESCRIPTION: 
This routine handles help while in keypad mode. The help processor 
is first called to put up the keypad diagram. Then we go into a eee 
accept tne characters and, if they are definable keys, we give the help 
message for the key. 
! FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EDTS$G_TI_TYP 


' 

i 

i 

i 

i 

' 

i 

i 

J 

' 

' | 
H | 
' 

i | 
| 
: | 
; IMPLICIT OUTPUTS: | 
i i 
i 

i 

i 

i 

i 

4 

i 

i 

i 

i 

bes 


VIFSWN—"OOONOUS WN —O0OWw 


EDT$$G_SCR_CHGD 

EDT$$G_CS_CNO 

EDT$$G_SCR_REBUILD 
ROUTINE VALUE: 

1 = ok, 0 = end of journal file | 
SIDE EFFECTS: 


NONE 


DWONAUE WN OS ODNA UE WN 0 ODNAUE WN" COONOUFSW—O0D wwe 


EXTERNAL ROUTINE 
E ' Format a Literal 
' Format a CRLF 


ANIMITININININININIDN 4 2 St | QOOCDOCOOCOCOCOCOCOOOOOOOOOMD@ -i-1 


' Dump the format buffer 

' Get help 

' Translate an escape sequence 
' Position the cursor 

' Erase to end of screen 

Get message text 

' Get a character of input 


WO OOVNOUEWN—O ODONOUS WN —"O0On 


AbK 
$SC POSABS : NOVALUE, 


' Test for an undefinable key 
' Set the scrolling region 


BEGIN | 
| 
| 

' Make sure we are in replace (not insert) mode. 


est 
7) 
o 
Q 345444 
m a 
>. 


T 
ADK; 
SETSCLLREG : NOVALUE, 
REP_MODE : NOVALUE; 


mm 
= 
~ 
mm 


TIl_TYP ' Terminal type. - 
SCR_CHGD, ! 1 = screen update must rebuild the screen 


ke ee ee ed ad dd 
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ERT SEENLPEPS EDTSCHM v4. 

v04- EDTSSKPAD_HLP = keypad help 14- =Sep- EDT. éRe CHMHLPKPD.BLI; (3) | 
; 12) L Ore Hee wrens .vT220 

; it Ore? 3 EDTSSB_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about characters 
: 179 0749 | 
: 180 B5e9 EDTS$$G_ cst ! Line number to erase from 
; 18) 751 EDT$$G_S re ReBUILD, ! 1 = rebuild the screen data base 
; 186 BF 26 EDTSSG_ een MODE; ' 1 = screen is in insert mode 
: 18e Ore MESSAGES ((TORETKEY, FORHLPANO, TOEXITHLP, KEYNOTDEF)); | 
: 186 0796 | 
s 187 07 CAE URSOR SAVED, 
: 188 0758 HELP. STRING: BLOCK CCHSALLOCATION (16)], 

; 189 0759 | 
: 190 0760 § ft" 
3; «6191 0761 

i 198 0768 gi | 
; #9 076 i Get the right terminal type. 
: 194 0764 2 i- 
; «195 0765 § | 
HY 133 Bee 5 IF (.EDTS$G_TI_TYP EQL TERM_VT100) ! | 
; 198 0768 é EDTSSCPY_MEM (15, UPLIT (STRING ("KEYPAD VT100 ')), HELP_STRING) | 
: oot Bete § EDTSSCPY_MEM (15, UPLIT (XZSTRING (‘KEYPAD vT52 ")), HELP_STRING); | 
: 202 0772 @ I | 
; 203 0773 2 | Because EDTS$OUT_HLP prints a blank Line before the text it finds, for the keypad 
; 204 0774 2! diagram that text starts with a sequence to erase the whole screen and position the 
; 205 0775 2! cursor to the upper left corner. Therefore we need not do cursor positioning here. 
; $08 pers § K However, we do set the scrolling region to the full screen. 
: 208 0778 2 CURSOR_SAVED = -EDT$SG_CS_LNO; | 
; 209 0779 2 EDT$$G_CS_LNO = 

; 210 0780 2 EDT$$G_ SC tric CHGD ‘ ; 

: $1) 44 $ EDTSSSC_ CRECHGD = 1 io, 24); ! Full=screen scrolling region 

: 218 Ores 2 IF (.EDTS$G_INSERT_MODE NEQ 0) THEN EDTS$SSC_REP_MODE (); ! Make sure we are in replace mode | 
gba 8 Paani. | 
3 & e e keypad diagram. 
: $$ byes 5 ie ae bibig se . | 
: 218 0788 § EDTSSOUT_HLP (HELP_STRING, 12, 0); 
: $2 Bree 2 | tacne taplecing tate on hepend & | 
3 oop, displaying help on keypad keys. 

; 221 GD & Egor gts woot nase gh | 
3 gee 145 

3; 223 079 WHILE 1 DO | 
; 224 0794 BEGIN 
3 $$? 0795 
: 226 0796 i Send a precautionary shift-in plus turn video attributes off 
: 7 0797 ! tsostly in case the person issues a CTRL-O). 

Ps 8 0798 be 
: 5 0799 
: 0 0800 4 iv (,EDTS$G_TI_TYP EQL TERM_VT100) 

; 231 0801 3 THEN 
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EDTSCHMHLPKPD EDTSCHMH 984 23:59: AX-11 Bliss-32 V4.0-742 Page 
42500 EDTSSKPAD_HLP = keypad help 1228 00- 1 3b #3 :33:39 EDT SREICHAMLEKED. BL f 23 (35 
: 2 ¢ 8 8 EDTSSFMT_LIT (SHIFT_IN_100, SI_LEN_100) 
; 4 9 0% EDTSSFMT_LIT (SHIFT_IN_52, SI_LEN_52); | 
$ 6 464 + 
; 7 080 ' Get next character. 
3 8 0808 'e | 
3 9 0809 
3 re Bay IF CEDTSSTI_INPCH (C) EQL 0) THEN RETURN (0); 
: stg pais '¢ 
: $e +4 ' Convert lower case to upper. 

H 44 814 ad | 
: 245 0815 

; 246 L 0816 XIF SUPPORT_VT220 
: see 0817 XTHEN 

ee: $819 IF .EDTSSB_CHAR_INFO C.C, 0, 0, 1, 0] THEN C = .C = 32 | 
; 250 0820 shal fo 
s 251 U 0821 ELSE 
§ $26 U 08 ; 

; $27 5 +4 Z IF ((.C GEQ %C'a') AND (.C LEQ %C'2')) THEN C = .C = %C'a’ + XC'A'; 
; 255 0825 3 FI 
: 256 0826 H 
3; gor 0827 '¢ 
: 258 0828 H ' Erase the screen. 

; 259 0829 te 
: 260 0830 3 EDT$$G_CS_LNO = 0; 
; 261 0831 3 EDT$$G_SCR_CHGD = 1; 
; 362 0832 3 EDTS$SC_POSABS (0, 0); 

; 26 0833 EDTS$SC_ERAALL (); 

: 264 0834 3 !+ : 
3 $e2 34 ; When we return to change mode we must rebuild the screen and the screen data base. | 
: 267 0837 3 EDTS$G_SCR_CHGD = 1; | 
; 268 0838 3 EDT$$G_SCR_REBUILD = 1; 

; 269 0839 EDT$$G_CS_CNO = .CURSOR_SAVED; | 
: 270 0840 '+ 

3 eri 0841 3! If the character is a space, exit the loop | 
3 $76 Bees ! and return to the original editing position. 

: 3? 08465 3 I | 
3 74 0844 

2 75 845 IF (.C EQL ASC_K_SP) THEN EXITLOOP; 

: 276 846 
: e277 0847 '¢ 
; $e bees : If the character is an escape, CSI or S$S3, translate the escape or control sequence. 
4 ad j 
3 $40 0850 
3 281 L 0851 3 XIF SUPPORT_vT220 
3 a¢ tt ZTHEN 
; Bt 0854 IF ((.C EQL ASC_K_ESC) OR (.C EQL ASC_K_CSI) OR (.C EQL ASC_K_SS3)) THEN EDTS$TRN_KPADK (C); | 
: 286 U Be28 ZELSE 
; 287 U 085 | 
> 288 U 0858 IF (.C EQL ASC_K_ESC) THEN EDTS$STRN_KPADI. (C); | 
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042000 EDISSKPAD. ALP - keypad help 12-9 08-1 3b 93:33:39 YET SREICHMMT PRED OL 424 
; 289 U 0859 
; 290 sey 4F I 
: ef) 61 
; 29 Bees ¢ 
3 i pee? } If the character is a carriage return, re-display the keypad diagram. 
ae $c) 0865 
; 296 0866 4 IF (.C EQL ASC_K_CR) 
: $3¢ 086 
: 98 0868 EDTSSOUT_HLP (HELP_STRING, 12, 0) 
; 299 0869 ELSE 
; 300 per 4 BEGIN 
: 01 871 4 !4 
; $08 Bare 4 ! Give a different message if the key is not definable. 
; 0873 4 !- 
; 304 0874 4 
: 305 0875 5 IF (EDTSS$TST_BADK (.C) AND EDTS$TST_BADK (.C + K_GOLD_BASE)) 
; 306 0876 4 THEN 
: 307 0877 5 BEGIN 
; 308 0878 5 !+ 
3 4 +44 2 } The key is not defineable; display a message but continue looping. 
; 311 0881 5 EDTSSMSG_TOSTR (EDT$_KEYNOTDEF); 
; 312 0882 5 EDTSSFMT_CRLF (); 
; 313 0883 5 END 
: 314 0884 4 ELSE 
3 315 0885 5 BEGIN 
; 316 0886 5 !+ 
3 $16 44 2 Get the key number so we can create the topic (key number is 3 digits: 000-499) 
3 S19 0889 5 CHSWCHAR (.C/100 + %C'O", CHSPTR (HELP_STRING, 13)); 
: 320 0890 5 H = (, : 
; 321 0891 5 CHSWCHAR (.CH/10 + %C‘'O', CHSPTR (HELP_STRING, 14)); 
; 33¢ 089 3 o CHSWCHAR (.CH MOD 10 + %C'O', CHSPTR (RELP_STRING, 15)); 
; $5¢ pee ; Get the help text for the key. The GOLD meaning of the key is included. 
: 326 0896 5 EDTS$SOUT_HLP (HELP_STRING, 16, 0); 
s Ser 0897 4 END; 
: Ses 0898 4 
3 (oe? 99 4 I+ ’ 
3 3350 900 4 ! Output the help instructions. 
s 331 901 4 !- 
; 338 902 4 EDTSSFMT_CRLF (); 
2 903 4 EDTS$SMSG_TOSTR (EDT$_TORETKEY); 
; 334 0904 4 EDTSSFMT-CRLF (); 
; 335 0905 4 EDTS$$SMSG_TOSTR (EDT$_TOEXITHLP); 
: 339 0906 4 EDTSSFMT_CRLF (); 
; 337 907 4 EDT$$SMSG-TOSTR (EDT$_FORHLPANO); 
: 338 908 4 EDTSSOUT_FMTBUF (); 
; 44 0909 ; END; 
: 340 0910 
s 41 0911 END; 
3 ri} aig 
i 34 91 = , ; 
3 344 914 ! Again be sure we have the none video terminal attributes in case 
; «345 0915 ! this module terminates abnormally. 
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v04- EDTSSKPAD.HLP - keypad help 1h-Sep- 1982 13:33 38 EDT LSREICAMMLPKPD BL 13 9 (3) | vO 
; 346 91 t- | 
: 347 $919 | 
; 48 0918 IF (.EDTS$G_TI_TYP EQL TERM_VT100) 
; 30 0920 EDTSSFMT_LIT (SHIFT_IN_100, SI_LEN_100) | 
3 3 0926 EDTSSFMT_LIT (SHIFT_IN_52, SI_LEN_52); | 
: 354 $9 4 EDTSSOUT_FMTBUF (); 
3 359 0925 RETURN (7); 
; 356 0926 1 END; ! of routine EDT$SKPAD_HLP 


-TITLE EDTSCHMHLPKPD EDTSCHMHLPKPD - keypad help 
‘ \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


5B 18 00000 P.AAA: .ASCII <15><27>\Em\ : 3 
00 47 1B OF 00004 P.AAB: .ASCII <15><27>\G\<0> 5 i 
20 20 20 30 30 31 54 56 20 44 41 50 59 45 4B 00008 P.AAC: ASCII \KEYPAD VT100 \<0> : 2 
20 20 20 20 32 35 54 56 20 44 41 SO 59 45 4B 00018 P.AAD: .ASCII \KEYPAD VT52 \<O> : : 
00 00027 : : 
SHIFT_IN_100= P.AAA 3 
SHIFT IN~52= P.AAB ; 
“EXTRN EDTSSFMT_LIT EDTSSFMT _CRLF : 
.EXTRN EDTS$S$OUT“F | ; 
EXTRN EDT$$OUT-HLP EDTSSTRN KPADK ; 
EXTRN EDT$$SC_POSABS, EDTS$$SC_ERAALL ; 
EXTRN EDTSSMSG_TOSTR, EDTSS$TI_INPCH 3 
EXTRN EDTS$$TST-BADK, EDT$S$SC_SETSCLLREG ; 
EXTRN EDT$$SC_REP_MODE ’ 
EXTRN EDT$$G_TI_TYP, EDT$$G_SCR_CHGD ; 
EXTRN EDT$$B-CHAR_INFO ; 
EXTRN EDT$$G_CS_LNO, EDT$$G_SCR_REBUILD : 
EXTRN EDT$$G_INSERT_MODE 3 
-EXTRN EDTS_TORETKEY, EDT$_FORHLPANO 3 
EXTRN EDTS_TOEXITHLP, EDTS. KEYNOTDEF : 
OFFC 00000 ENTRY EDTSSKPAD HLP, Save R2.R3,R4,R5,R6,R7,R8,- 3 0690 ; 
58 9900000 G 09 9E 00002 MOVAB €ED{$$G_TI_TYP, R11 : | ; 
A 000000006 9E 00009 MOVAB EDT$$G~SCR_CHGD, R10 F : 
59 C5 AF 9E 00010 MOVAB SHIFT_IN_100 Ro, : : 
58 000000006 00 9€ 00014 MOVAB EDTSSFMT~CRLF : ; 
57 000000006 00 9€ 0018 MOVAB EDTSSMSG “FORTR, Re : ; 
56 000000006 00 9 00 HOVAB EDT$$G_CS_LNO, R6 ; ; 
3E 14 C2 00029 SUBL2 #20, §S : : 
0 68 D1 99 C CMPL EDTSSG TI_TYP, #2 > 0766 ; 
0 if O02F BNEQ & ; : 
04 AE 08 ag OF 28 00 | Movs #15. P.AAC, HELP_STRING : 0768 ; 
04 AE 18 a9 bf 28 80 9 1$: MOVC3 #15, P.AAD, HELP_STRING : 0770 : 
54 66 DO 0003F 2$: MOVL EDT$$6°Cs_ (NO CORSOR_SAVED : 0778 : 
66 D4 00042 CLRL EDT$$G S-tNO’ : 0779 ; 
| 
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6.000 EDTSSKPAD_HLP = Reyped help 14- ~Sep- 1382 $3:33 :22: 33 EDT. SRCICHMHLPKPD.BLI; 1 ° (3) | 
| 
6A 01 DO 00044 OVL #1, EDT$$G_SCR_CHGD : 0780) : 
18 DD 0047 PUSHL #24 gets : 0781) ; 
7E D4 00049 CLRL. = =(SP) : : 
000000006 00 F 004 CALLS #2, EDT$$SC_SETSCLLREG : ; 
000000006 p 009 Ist pts G_INSERT_MODE : 0783 ; 
000000006 00 00 FB OOOSA CALLS #0 EDTS$SC _REP_MODE : ; 
7E C 7D 00061 3$: MOVO wie = (SF) : 0788 | ; 
0c AE 9F 00064 PUSHAB HELP NG ; : 
000000006 00 03 FB 00067 CALLS ebTssouT HLP ; 
02 68 D1 OO0GE 4S: CPL EDtSSC. TI_TYB, #2 : 0800) 
06 12 00071 BNEQ : | 
04 OD 00073 PUSHL #4 + 0802 
59 DD 00075 PUSHL 9 : 
05 11 00077 BRB 6$ : 
03 oD 00079 5$ PUSHL #3 + 0804 
04 Ad OF 90078 PUSHAB SHIFT ; 
000000006 00 02 FB O07E 6$: CALLS #2, ist ts?ar LIT ; 
5E DD 0008 PUSHL + 0810 
000000006 00 07 FB 00087 CALLS #1, EDTS$$TI_INPCH : 
50 D5 0008 TSTL RO ; 
03 12 0009 BNEQ : 
011D 31 0009 BRW 18$ ; | 
50 000000006 00 9€ 00095 7s: MOVAB EDTS$S$B_CHAR_INFO, RO + 0819 
03 00 BE4O 00 €1 0009C BBC #0 actro],~8$ : 
6E 20 C2 O00Ag SUBL2 C : 
66 D4 OOOAS 8$: CLRL EDTESE.¢ : 0830 
6A 01 D0 000A7 MOVL EoTSsCe SCR. CHGD : 0831 
7E 7C OOOAA CLRO Wl eps : 0832 
000000006 00 02 FB OOOAC CALLS "2, EDTS$SC_POSABS : 
000000006 00 00 FB 000B3 CALLS #0, EDT$$SC~ERAALL + 0833 
6h 01 00 OO0BA MOVL #1, EDT$$G_SCR_CHGD : 0837 
000000006 00 01 DO 000BD MOVL #1. EDT$$G~SCR-REBUILD : 0838 
66 54 DO 000C4 MOVL  CURSOR_SAVED, EDTS$G~ CS_LNO : 0839 
20 6E D1 000C7 CMPL C, #327 : 0845 
03 12 OOOCA BNEQ 9§ : 
00c1 31 000CC BRW 15$ F 
1B 6— 01 O00c 9$: CMPL C, #27 : 0854 
12 13 000D2 BEQL ~=s«sa16$ : | 
00000098 ~=s BF 6E D1 00004 CMPL C, #155 : 
09 15 00008 Bea. = 16 2 | 
0000008F F 6E 01 000DD CMPL 6 C,_-#143 : 
09 12 000E4 BNEQ 11 ; 
SE 0D OES 10$:  PUSHL SP : | 
000000006 00 01 FB OO0E CALLS #1, aD TSSTRN. KPADK : 
53 : DO OOOEF 11$: mov. C : 0866 
0d D1 OOF CMPL =soR'S, #13 : 
03 12 000F BNEQ 12$ ; 
FF67 31 OOOF BRW 3$ : 
53 DD OOOFA 12%:  PUSHL 3 > 0875 
000000006 00 Or FB OF CALLS #1, EDTSSTST_BADK : | 
1C : : 01 BLBC R0 13$ : 
O1F4 F 001 PUSHAB 500(R3) ; 
000000006 00 1 FB O10A CALLS #1, i. BADK : 
E 0 €9 00111 BLBC =—«-_-RO.-«*13$ : 
000000006 B&F DD gii4 PUSHL aroTs KEYNOTDEF ; 0881 | 
? 1 FB OO11A CALLS #1, EDTS SSHSG TOSTR : | 
| 
| 
| 
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42500 EDTSSKPAD_HLP = hevpad help 127808- 1382 $3 :33 539 EDT. SRCJCHMHLPKPD.BLI; . | 
6B 00 FB 0011 CALLS #0, EDTSSFMT_CRLF ; 088 
40 11 o1 BRB 14 ; 087 
50 53 00000064 8F C7 O01e2 138: DIVLS #100, R3, RO : 0889 
11 AE 20 0 81 0012A ADDB3 #48, RO, HELP_STRING+13 : 
zs 5 1 7A 0012F EMUL #1, R3, #0, -TS : 0890 | 
5 : BE 00000064 BF 7B 00134 EDIV. #100, (SP)+, CH, CH : | 
A 130 DIVES #10, CH, RO ; 0891 | 
12 AE 5 0 81 00141 ADDB3 #48, RO, HELP_STRING+14 : 
7E 00 5 1 7A 00146 EMUL #1, CH , @tSP : 0892 | 
50 50 3 A 7B 0014 EDIV #0, (§p)+" RO. RO : 
13. AE 5 0 gi 015 ADDB3 #48. RO, HELP_STRING+15 ; | 
7E 10 7D 1) MOVQ #16, =(SP) + 0896 | 
0c AE 9F 001 PUSHAB HEL S : 
000000006 00 03 FB 0015 CALLS , EDT$SOUT_HLP : 
oP 00 FB 00162 148 LLS #0, EDISSEMT CRLF : 0902 
000000006 8F DD 0016 PUSHL M#EDT$_TORETKEY + 0903 
67 01 FB 00168 CALLS #1, EBTS$$MSG_TOSTR : 
68 00 FB 0166 CALLS #0, EDTSSFMT-CRL + 0904 
000000006 8F DD 00171 PUSHL #EDT$_TOEXITALP + 0905 
67 01 FB 00177 CALLS #1, EBDTSSMSG_TOSTR ; 
68 00 FB OO17A CALLS #0, EDTSSFMT-CRLF + 0906 
000000006 8F DD 0017) PUSHL #EDT$_FORHLPANO + 0907 
67 01 FB 00183 CALLS #1, EBTSSMSG_TOSTR ; 
000000006 00 00 FB 00186 CALLS #0, EDTSS$OUT-FMTBUF : 0908 
FEDE 31 0018D BRW 4 : 0793 
02 6B D1 00190 15$ CMPL EDTS$G_TI_TYP, #2 : 0918 
06 12 00193 BNEQ 16$ ; 
04 DD 00195 PUSHL #4 : 0920 
59 DD 00197 PUSHL  R9 F 
05 11 00199 BRB 17$ F 
03 DD 0019B 16S: PUSHL #3 : 0922 
04 Ad 9F 00190 PUSHAB SHIFT_IN 52 : 
000000006 00 02 FB OO1A0 178: CALLS #2, EBTSSFMT_LIT 3 
000000006 00 00 FB OO1A7 CALLS #0, EDTS$OUT—FMTBUF + 0924 
50 01 DO OOTAE MOVL #1. RO : 0925 
04 00181 RET ; 
50 D4 00182 188: CLRL ~— RO : 0926 
04 00184 RET ; 


; Routine Size: 437 bytes, Routine Base: _EDTSCODE + 0028 


0927 1 
0928 1 !<BLF/PAGE> 


WI, 


emer” BERGE “Aga Leia aaa mirhiabs$ 
301 0980 1 END ! of module EDTSCHMHLPKPD 

; 362 931 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

; _EDTSCODE 477 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


cooccece Symbols -<------ Pages Processing 
File Total Loaded Percent *apped Time 
_$255$DUA28: FeDT. SRCJEDT.L32;1 377 8 2 40 00:00.2 
~$255$DUA28: CEDT -SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
-8255$DUA28: CEDT. SRC JKEYPADDEF .L32;1 34 1 2 7 00:00.1 
“$255$DUA28: CEDT. *SRCISUPPORTS. L324 2 1 50 5 00:00.1 


COMMAND QUALIFIERS 
ee TEE) AO TRLEO MEA SO SIS CUE POOR ECU PD MSRC$: CHMHLPKPD.BLI/UPDATE=(ENHS:C 


Size: 437 coge + 40 data bytes 


. 4 
Sleseed’ taee a Ft 
Lines/CPU Min: 735 
Lexemes/CPU-Min: 8650 
Used: 142 pages 
Compilation Complete 
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